(defun c:d3()

(setvar "OSMODE" 0) ;  
(command "_-view" "_top") ;   
(command "_vscurrent" "_2") ;    "2D " 

(command "_vscurrent" "_c");   "

(command "_cylinder" "0,0,0" 58 62 );
(command "_cylinder" "0,0,0" 37.5 38 );
(command "_subtract" "57,0,0" "" "36,0,0" "");  

(command "_cylinder" "0,0,62" 35 38)
(command "_union" "57,0,60" "32,0,90" "");    

(command "_cylinder" "0,0,0" 20 120)
(command "_subtract" "57,0,0" "" "18,0,100" "");  



(command "" "y" -180);
(command "" "x" -90);
(command "_wedge" "0,0,100" "42,40,0" 60) ;!!!!!!!!!!
(command "_wedge" "0,0,100" "-42,40,0" 60)

(command "" "x" 90); 
(command "" "y" 180);

(command "_cylinder" "-62,0,0" 12 120)
(command "_subtract" "0,0,0" "" "-62,0,110" "")



(command "_vscurrent" "_c");   "
(command "_-view" "_swiso") ;   - 

(setvar "osmode" 16383) ;     

 )
